C**** USE THIS FOR READING FILES FROM TRS80 OVER PHONE LINE. ****
C   PUT "*" IN 1ST COLUMN OF LAST LINE OF INPUT FILE TO CAUSE AUTO END.
	DIMENSION I(100)
	DOUBLE PRECISION KK
1	FORMAT(' TYPE OUTPUT NAME  '$)
	TYPE 1
2	FORMAT(A10)
	ACCEPT 2,KK
CC	CALL OFILE(1,N)
	CALL DEFINE(1,0,NONO,KK)
C  'DEFINE' PUTS OUT FILE WITH NO EXTENSION (ONLY USING 1)
6	FORMAT('    TYPE "*" WHEN INPUT IS COMPLETE'/)
CC6	FORMAT('    TYPE "*" WHEN INPUT IS COMPLETE'/
CC	1 '       ----WAITING FOR INPUT----'/)
	TYPE 6
3	FORMAT(100A1)
33	FORMAT(I,100A1)
4	ACCEPT 3,I
	IF(I(1).EQ.'*')GO TO 5
	DO 10 K=100,1,-1
10	IF(I(K).NE.' ')GO TO 11
11	WRITE(1,3)(I(J),J=1,K)
	GO TO 4
CC5	END FILE 1
7	FORMAT(1XA10,' HAS BEEN WRITTEN')
5	TYPE 7,KK
	END